contend () : 



repeat [ 

Qi - 0; 

[ ua [ status, - u,try() ; 

Qx - {u} u Q l? 
] until (30 e Q:Q £ Qi>; 
if (|{ u : status u = LOCKED} \ <b) 
return; 

else 

s «- s + 1; 

d - r [(a+45)] . . . 2 s (a+45) ; 
sleep (d) ; 
] until (false) ; 
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FIGURE 2A: MUTUAL EXCLUSION PROTOCOL CLIENT PROGRAM 



if (clock 0 - lastGranted > a + 2 5) 
lastGranted <- clock (); 
return FREE; 

else 

return LOCKED; 



FIGURE 2B: MUTUAL EXCLUSION PROTOCOL SERVER PROGRAM 



1) submit (c) : 

2) waiting - true; 

3) » V x - 0; Q 1 0; 

4) Uqi CPu - submit (o) ;V X - 
{pju V lf - 

5) ] until (3p:|{p u 6 V x 

6) waiting - false; 

7) return p: j {p u e V^p^pJ) 
;>b+l 

8) II repeat [ 

9) contend!) ; 

10) Q 2 - 0; 

11) \\ u eu [<a u c ,o u pc , 
proposer U/ , pending u )-u. get (r) ; 

12) Q 2 ~{u} u Q 2 ; 

13) ] until ( 3 Q 6 Q:Q £ Q 2 ) ; 

14) 5>{o' :|{u:a'=a u c } Ub+1}; 

1 5 ) a c - : a : a . ver s ion=max a , 
{ a' . version} ; 

16) a pc -choose({<a u pc , 
proposer u ):a v^x} ) ; 

1 7 ) compl et ed-max 

{ completed, max { v: | {u:a u pc 
. version>v| ^b+1 } } ; 



18) 


if a c *_L A a c .version> 




completed) 


19) 


o+-o c 


20) 


else if (a pc *± A a pc . 


version > completed) 


21) 


a-a pc ; 


22) 


else 


23) 


pending*- { 0: e{ u: 0 G 




pending u } |>£>+1} ; 


24) 


a - apply (pending 


a c ); 




25) 


0 2 - 0; 


26) 


I« D [u. propose (a' r) ;Q 5 




{u}uQ 2; 


27) 


] until (3QeQ:QeQ 2 ; 


28) 




29) 


1^ [u. commit (a, r) ;Q 2 - 




{u}uQ 2 ; 


30) 


] until (3Q6Q:QqQ 2 ) ; 


31) 


completed - max 



{ completed, a. version} ; 

32) ] until {waiting = 
false) ; 



33) choose ( {(a u pc , proposer u )} u) : 

34) S[l,2, . . .]-{<a u pc , 
proposer u )} u sorted in 

descending order by {a, 
proposer) > (a' , 
proposer' )«* (a. version > 
a' .version V 
(a. version = 

a' .version A proposer > 
proposer' ) ) ; 

35) count - 
[0,0,...]; 

36) repeat 

[{a, proposer)<~S [i] ; 

37) count [a] -count [a] +1; 

38) i - i + 1; 

39) ] until ( aa: count [a] 
^b+1 V i > |S|) f 

40) if (3o:count [a]>b+l 

41) return a: count 
[a] stJb+1; 

42) else 

43) return r; 

44) apply (pending, a'): 

45) repeat I o ^ R pending; 
4 6 ) pending-pending\ { 0} ; 

47) if (a' .reflects 
( o) -false) 

48) o'.doOp(o); 

4 9) ] until (pending=0) ' 

50) a r . version-o' . 
version+1' 

51) return a' ; 



FIGURE 3A: CLIENT SIDE 



OF AN ORDERING PROTOCOL 



1) 


submit (o) : 


5) 


get (r) : 


2) 


pending*-pending u{o}; 


6) 


if ® > maxRank) 


3) 


sleep until 


7) 


maxRank <- r; 




(response (o) *j_) ; 


8) 


return (°l°o c ,a pc , 
prosper, pending) 
else 

throw RankException; 


4) 


return response (o); 


9) 
10) 


1 1 ) 


\JL. KJ±J\J o c: ^ {J f X / . 


x y ) 


V^UiLUUX U ^ O ^ X / « 


xz ; 


XX viy 2; Hla.XKa.riK ) 


z u ; 


XX vfy 2 HlclXrva.il is. y 


13) 


maxRank <- r; 


21) 


maxRank - r; 


14) 


proposer - r; 


22) 


o°, ap- 


15) 


o pc - a; 


23) 


pending - pending \ 


16) 


return; 




{ o: a. reflects (o) =true} ; 


17) 


else 


24) 


response «- responseja. 


18) 


throw RankException; 


25) 
26) 
27) 


response; 
return; 
else 

throw RankException; 



FIGURE 3B: SERVER SIDE OF AN ORDERING PROTOCOL 



